Voorbeeld van de functie NPer

Dit voorbeeld maakt gebruik van de functie NPer om het aantal perioden te geven gedurende welke betalingen moeten plaatsvinden om een lening af te lossen waarvan de waarde is opgenomen in PVal. Gegeven zijn de rentevoet per periode (APR / 12), de betaling (Payment), de toekomstige waarde van de lening (FVal) en een getal dat aangeeft of de betaling aan het eind of aan het begin van de betaalperiode plaatsvindt (PayType).

Dim FVal, PVal, APR, Payment, PayType, TotPmts
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' Wanneer de betalingen plaatsvinden.
FVal = 0    ' Gewoonlijk 0 voor een lening.
PVal = InputBox("Hoeveel wilt u lenen?")
APR = InputBox("Wat is de jaarlijkse rentevoet van uw lening?")
If APR > 1 Then APR = APR / 100    ' Zorg voor de juiste vorm.
Payment = InputBox("Hoeveel wilt u per maand betalen?")
PayType = MsgBox("Vinden de betalingen aan het eind van de maand plaats?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1
MsgBox "U doet er " & TotPmts & " maanden over om uw lening af te lossen."